home *** CD-ROM | disk | FTP | other *** search
/ AMIGA-CD 2 / Amiga-CD - Volume 2.iso / ungepackte_daten / 1994 / 1 / 01 / e-compiler / e-compiler.ampk / E-Compiler / Sources / Examples / Ereq.e < prev    next >
Encoding:
Text File  |  1995-06-01  |  555 b   |  18 lines
  1. /* Thanks to E lists, it's *that* simple ... */
  2.  
  3. OPT OSVERSION=37
  4.  
  5. PROC main()
  6.   DEF r
  7.   r:=request('Ahem...','Sure|Nope',NIL)
  8.   request('Your selection: \d','what do i care ...',[r])
  9.   request('More requesters coming up','sigh..',NIL)
  10.   r:=request('What will it be:','1|2|3|4|5',NIL)
  11.   request('Your selection: \d','what do i care ...',[r])
  12.   request('execbase is at $\z\h[8]','Really...',[execbase])
  13.   request('Done!','Aaaaaaaaaaaaaaaaaaaaaaaaaargh!',NIL)
  14. ENDPROC
  15.  
  16. PROC request(body,gadgets,args)
  17. ENDPROC EasyRequestArgs(0,[20,0,0,body,gadgets],0,args)
  18.